<%
dim id_r
server.ScriptTimeout = 999999999

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "empa"
set rs1 = Server.CreateObject("ADODB.Recordset")

rs1.Open "SELECT * FROM aaldata ORDER BY id WHERE aaldata.[Total Abundance] > 0",conn
'1.639.987
rs1.MoveFirst
Do While Not rs1.EOF
    id_r = rs1("ID") 
    Abundance = rs1("Total Abundance") 
        SQL=  "INSERT INTO Tabla2 SELECT * FROM aaldata WHERE aalData.id = " & id_r & " "
        For i =1 to Abundance
            conn.Execute(SQL)
        next 'i
    response.Flush
 rs1.MoveNext
 Loop
response.Write "FIN"
%>






